clear,clc;
format long
x=fzero('fun11',1)
R=600/x
g=1200*sin(x)-593*x
